home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Tele / C / CommsService 2.0.2.sit / commsService 2.0.2 Final / Service Definition Files / Flinders University < prev    next >
Encoding:
Text File  |  1994-09-06  |  2.0 KB  |  46 lines  |  [TEXT/cSSv]
  1. #
  2. # commsService 2.0 Service Definition File.
  3. #
  4. Name=Flinders University
  5. Description=Provides access to INVESTIGATOR - Flinders University Central Library
  6. You may search by any of the methods listed below - 
  7.   1.  Title                                          9.  Periodical Title
  8.   2.  Author                                     10.  Call Number
  9.   3.  Keywords from Title                11.  Lecturer search
  10.   4.  Keywords from Author             12.  Topic no. search
  11.   5.  Keywords from Subject            13.  News
  12.   6.  Keywords from Whole Entry      14.  Other Catalogues
  13.   7.  Keywords from Series              15.  Borrower's Loan Details
  14.   8.  Subject
  15.  
  16. TimeOut=0
  17. BreakEnabled=No
  18. PagesToScroll=10
  19. TerminationString=You may now disconnect your modem
  20. ConnectionTool=TGE TCP Tool
  21. ConnectionTokens=HostName LIBRARY.CC.FLINDERS.EDU.AU PortNumber 23 ConnectionType TELNET TelnetBinaryMode FALSE TerminalType VT100
  22. ConnectionMenu=No
  23. TerminalTool=VT102 Tool
  24. TerminalTokens=FontSize 9 Width 80 Cursor Underline Online True LocalEcho False AutoRepeat True RepeatControls False AutoWrap False NewLine False Scroll Jump ShowControls False SwapBackspaceDelete False TerminalMode ANSI/VT102 ShowStatusBar False ShowTabRuler False InverseVideo False InsertChar False OriginAtMargin False KeyClick False CursorKey ANSI Keypad Numeric AnswerBack "" KeyboardLocked False ActiveCharSet G0 NRCSet USASCII G0 USASCII G1 USASCII G2 USASCII G3 USASCII
  25. TerminalMenu=No
  26. ServiceScripts=on LoginToService
  27. Global ActiveService, FoundString
  28. if ExpectFromService(ActiveService, 20, true, false, "login:") then
  29. if FoundString > 0 then
  30. if SendToService(ActiveService, "central" & return, "") then
  31. if ExpectFromService(ActiveService, 20, true, true, "number of your terminal type") then
  32. if FoundString = 1  then
  33. if SendToService(ActiveService, "1" & return, "") then
  34. if ExpectFromService(ActiveService, 20, true, true, "Welcome to INVESTIGATOR") then
  35. if FoundString = 1  then return true
  36. end if
  37. end if
  38. end if
  39. end if
  40. end if
  41. end if
  42. end if
  43. return false
  44. end LoginToService
  45.  
  46.